home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 July / EnigmA AMIGA RUN 20 (1997)(G.R. Edizioni)(IT)[!][issue 1997-07 & 08][EAR-CD IV].iso / lightwave / arexx_macros / makehamanim.adpro < prev    next >
Text File  |  1996-12-09  |  2KB  |  108 lines
  1. /*
  2. ** MakeANIM.rexx
  3. **
  4. ** 
  5. **
  6. ** This AREXX program is a hack of ADPro's BustANIM ARexx macro, making
  7. ** lo-res HAM anims from individual frames. Duhh...
  8. **
  9. ** Cool.. heh-heh. (This sucks)
  10. **
  11. ** Mod: Alan C. 8-94
  12. */
  13.  
  14. ADDRESS "ADPro"
  15. OPTIONS RESULTS
  16.  
  17. say ' '
  18. say "Let's make ANIMs!!"
  19. say ' '
  20. say ' '
  21.  
  22. ADPRO_TO_FRONT
  23.  
  24. PSTATUS "UNLOCKED"
  25.  
  26. GETFILE '"Enter BaseName.. "'
  27. IF (RC ~= 0) THEN DO
  28.     OKAY1 "What the Hey? No filename specified."
  29.     EXIT 10
  30. END
  31. fname = ADPRO_RESULT
  32.  
  33. say 'BaseName: '||fname
  34. num=1
  35.  
  36. OKAY2 '"Start at Frame 1?"'
  37. IF (RC ~=1) THEN DO
  38.     CALL "FREDSCRIPTS:FREDFunctions/GetANumber" '"Start At Frame:"' 1 0 999 TRUE
  39.     num = RESULT
  40.     ADPRO_TO_FRONT
  41.     END
  42.  
  43. say 'Start at Frame #'||num
  44.  
  45. LFORMAT "UNIVERSAL"
  46. SFORMAT "ANIM"
  47.  
  48. OKAY2 "Lock Palette?"
  49. IF (RC ~=0) THEN DO
  50.     GETFILE '"File To Lock Palette With:"'
  51.     PLockFile = ADPRO_RESULT
  52.         IF (RC ~=0) THEN DO
  53.         OKAY1 "No File Selected"
  54.         EXIT 10
  55.         END
  56.     LOAD PLockFile
  57.     RENDER_TYPE HAM
  58.     SCREEN_TYPE 24
  59.     EXECUTE
  60.     PSTATUS "LOCKED"
  61.     say 'Palette Locked To File '||PLockFile
  62.     END
  63.  
  64. GETFILE '"Destination Anim Name.."'
  65. SFnam = ADPRO_RESULT
  66.  
  67. say 'Destination Anim Filename: '||SFnam
  68.  
  69. OKAY2 '"Howsa About-a Looping Anim?"'
  70. Loop = 1
  71. IF (RC ~ = 0) THEN DO
  72.     Loop=0
  73.     END
  74.  
  75. continue=0
  76.  
  77. say ' '
  78. say ' '
  79. say ' '
  80.  
  81. DO WHILE ( continue = 0 )
  82.     LOAD fname || RIGHT( num, 3, "0" )
  83.         IF ( RC ~=0 ) THEN DO
  84.         IF (Loop=1) THEN DO
  85.             SAVE SFnam "QUIT" "IMAGE"
  86.             END
  87.         IF (Loop=0) THEN DO
  88.             SAVE SFnam "WRAPUP" "IMAGE"
  89.             END
  90.         continue=1
  91.         EXIT
  92.         END
  93.     say 'Adding Frame #'||num||'...'
  94.     RENDER_TYPE HAM
  95.         SCREEN_TYPE 24
  96.     EXECUTE
  97.  
  98.         SAVE SFnam "APPEND" "IMAGE"
  99.  
  100.         num = num + 1
  101.  
  102. END
  103.  
  104. say ' '
  105. say "Done! Gettin' De Heck Outta Here..."
  106.  
  107. EXIT
  108.